home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb26568.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  63 lines
  1. ;=============265.68 STELLFUSS 80, M12 x 160
  2.  
  3. (EAITDBL "0026568")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:26568S1 (/ P0 P1 P2 P3 P4 P5 P6 P7 P8 P9 E1 E2 E3 E4 E5 E6 E7
  8.                     H Hx R BName)
  9.    (EAITDBL "0026568")
  10.    (princ (strcat "\n\n" EAITbez1))
  11.    (EAITvari)
  12.    (EAITvars)
  13.    (EAITbpt nil nil nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" nil "030" " ")   ;Versatz: <+40> 
  17.    (setq R (getreal))
  18.    (if (= R nil)(setq P1 (list (+ (car P1) 40) (cadr P1)))(setq P1 (list (+ (car P1) R) (cadr P1)))  )
  19.    (initget (+ 2 4))
  20.    (EAITmsg "mb_mld10" nil "025" nil)(EAITmsg "mb_mld10" nil "028" " ")   ;Höhe: <49> 
  21.    (setq H (getdist))
  22.    (if (= H nil)(setq H 49))
  23.    (setq H (EAITck H))
  24.    (if (= H 50)(setq H 13)(setq H (- H 37)) )
  25.    (setvar "OSMODE" 0)
  26.  
  27.    (setq P2 (list (- (car P1) 6)(- (cadr P1) 10))
  28.          P3 (list (car P2) (- (cadr P2) H))
  29.          P4 (list (+ (car P1) 6)(cadr P2))
  30.          P5 (list (car P4)(cadr P3))
  31.          P6 (list (- (car P1) 5.1)(cadr P2))
  32.          P7 (list (car P6) (cadr P3))
  33.          P8 (list (+ (car P1) 5.1)(cadr P6))
  34.          P9 (list (car P8)(cadr P7))
  35.    )
  36.    (command EAITege (strcat EAITpfn "26568o1") P1 "" "" "")
  37.    (setq E1 (entlast))
  38.    (command EAITege (strcat EAITpfn "26568u2") (list (car P1)(- (cadr P1)(+ H 10))) "" "" ""
  39.             EAITege (strcat EAITpfn "26568u1") (list (car P1)(- (cadr P1)(+ H 17))) "" "" ""
  40.             EAITlay EAITlse "EAIT50" ""
  41.             EAITlin P2 P3 ""
  42.             EAITlin P4 P5 ""
  43.             EAITlay EAITlse "EAIT25" ""
  44.             EAITlin P6 P7 ""
  45.             EAITlin P8 P9 ""
  46.    )
  47.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  48.          E6 (entnext E5) E7 (entnext E6) )
  49.  
  50.    (setq BName (EAITbnr))
  51.    (command EAITblo BName P1 E1 E2 E3 E4 E5 E6 E7 ""
  52.             EAITege BName P1 "" "" "")
  53.  
  54.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib 279) 7) "" "" ""
  55.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  56.    )
  57.  
  58.    (EAITvarz2)
  59.    (princ)
  60. )
  61.  
  62. (princ)
  63.